Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / agavb20 / gframes.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-06-25 | 11.5 KB | 373 lines

VERSION 2.00 Begin Form FrameDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Frame & Background Demo" ClientHeight = 4410 ClientLeft = 1020 ClientTop = 1455 ClientWidth = 6435 Height = 4815 Left = 960 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4410 ScaleWidth = 6435 Top = 1110 Width = 6555 Begin AGAUGE Gauge1 Angle = 0 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 0 ' 0 - None BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 0 FrameColor = &H00000000& FrameScaleX = 1.1 FrameScaleY = 1.1 FrameStyle = 1 ' 1 - Circle Height = 3015 Left = 120 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Scales = GFRAMES.FRX:0000 Shape = "" TabIndex = 2 Top = 1230 Value = 0 Width = 3225 XScale = 0 YScale = 0 End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Picture Properties" Height = 1695 Left = 3570 TabIndex = 18 Top = 1170 Width = 2625 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "FramePicture" Height = 225 Index = 0 Left = 300 TabIndex = 7 Top = 300 Value = -1 'True Width = 2235 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "BackgroundPicture" Height = 225 Index = 1 Left = 300 TabIndex = 8 Top = 540 Width = 2235 End Begin PictureBox Image1 Height = 645 Index = 4 Left = 1620 Picture = GFRAMES.FRX:006C ScaleHeight = 41 ScaleMode = 3 'Pixel ScaleWidth = 41 TabIndex = 9 Top = 930 Width = 645 End Begin PictureBox Image1 Height = 645 Index = 2 Left = 960 Picture = GFRAMES.FRX:46A6 ScaleHeight = 41 ScaleMode = 3 'Pixel ScaleWidth = 41 TabIndex = 10 Top = 930 Width = 645 End Begin PictureBox Image1 Height = 645 Index = 0 Left = 300 Picture = GFRAMES.FRX:8C80 ScaleHeight = 41 ScaleMode = 3 'Pixel ScaleWidth = 41 TabIndex = 11 Top = 930 Width = 645 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Color Properties" Height = 1395 Left = 3570 TabIndex = 23 Top = 2850 Width = 2625 Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "BackgroundColor" Height = 195 Index = 1 Left = 330 TabIndex = 12 Top = 540 Width = 2115 End Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "FrameColor" Height = 195 Index = 0 Left = 330 TabIndex = 13 Top = 300 Value = -1 'True Width = 2115 End Begin Label HColors BackColor = &H000080FF& Height = 225 Index = 4 Left = 1230 TabIndex = 14 Top = 990 Width = 225 End Begin Label HColors BackColor = &H00000000& Height = 225 Index = 0 Left = 270 TabIndex = 19 Top = 990 Width = 225 End Begin Label HColors BackColor = &H00808080& Height = 225 Index = 5 Left = 1470 TabIndex = 20 Top = 990 Width = 225 End Begin Label HColors BackColor = &H00FFFFFF& Height = 225 Index = 1 Left = 510 TabIndex = 21 Top = 990 Width = 225 End Begin Label HColors BackColor = &H000000FF& Height = 225 Index = 6 Left = 1710 TabIndex = 22 Top = 990 Width = 225 End Begin Label HColors BackColor = &H0000FF00& Height = 225 Index = 2 Left = 750 TabIndex = 27 Top = 990 Width = 225 End Begin Label HColors BackColor = &H0000FFFF& Height = 225 Index = 7 Left = 1950 TabIndex = 26 Top = 990 Width = 225 End Begin Label HColors BackColor = &H00FF0000& Height = 225 Index = 3 Left = 990 TabIndex = 25 Top = 990 Width = 225 End Begin Label HColors BackColor = &H00FF00FF& Height = 225 Index = 8 Left = 2190 TabIndex = 24 Top = 990 Width = 225 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "FrameStyle" Height = 1095 Left = 390 TabIndex = 15 Top = 60 Width = 1575 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Rectangle" Height = 225 Index = 2 Left = 210 TabIndex = 6 Top = 750 Width = 1245 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Circle" Height = 225 Index = 1 Left = 210 TabIndex = 17 Top = 510 Width = 1095 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "None" Height = 225 Index = 0 Left = 210 TabIndex = 16 Top = 270 Width = 1125 End End Begin HScrollBar HScroll1 Height = 225 Index = 1 Left = 2310 Max = 140 TabIndex = 3 Top = 840 Width = 3885 End Begin HScrollBar HScroll1 Height = 225 Index = 0 Left = 2310 Max = 140 TabIndex = 0 Top = 420 Width = 3885 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 1 Left = 4185 TabIndex = 4 Top = 630 Width = 120 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Frame Scale Y:" Height = 195 Index = 1 Left = 2310 TabIndex = 5 Top = 660 Width = 1305 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Frame Scale X:" Height = 195 Index = 0 Left = 2310 TabIndex = 1 Top = 240 Width = 1305 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 0 Left = 4185 TabIndex = 28 Top = 210 Width = 150 End Sub Form_Load () hscroll1(0) = gauge1.FrameScaleX * 100 hscroll1(1) = gauge1.FrameScaleY * 100 option2(gauge1.FrameStyle) = True End Sub Sub HColors_Click (index As Integer) If option3(0) Then gauge1.FrameColor = hcolors(index).BackColor gauge1.FramePicture = LoadPicture("") Else gauge1.BackgroundColor = hcolors(index).BackColor gauge1.BackgroundPicture = LoadPicture("") End If End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 gauge1.FrameScaleX = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 gauge1.FrameScaleY = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 End Select End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 gauge1.FrameScaleX = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 gauge1.FrameScaleY = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 End Select End Sub Sub Image1_Click (index As Integer) If option1(0) Then gauge1.FramePicture = Image1(index).Picture Else gauge1.BackgroundPicture = Image1(index).Picture End If End Sub Sub Option2_Click (index As Integer) gauge1.FrameStyle = index End Sub